# 读取文本文件中表格
mydat<-read.table('in.dat',
		  header=TRUE,
		  sep=',',
		  dec='.',
		  nrow=n,
		  na.strings=NA,
		  skip=j,
		  comment.char='#')

# 读写CSV文件
data<-read.csv('in.csv',encoding='UTF-8')
write.csv(data,'out.csv')

# 读取xlsx格式excel表格
library(openxlsx)
data<-read.xlsx('in.xlsx','sheetname')

# 处理xml文档
library(XML)
data<-xmlParse(file='in.xml')
rootnode<-xmlRoot(data)
rootsize<-xmlSize(rootnode)
dl<-xmlToList(data)
df<-xmlToDataFrame(data)

# 读取json文档
library(rjson)
data<-fromJSON(file='in.json')

# 从MySQL数据库中读取数据
library(RMySQL)
link<-dbConnect(MySQL(),user='',password='',dbname='dbname',host='localhost')
dbListTables(link)
query<-dbSendQuery(link,SQL)
data<-fetch(query)

